home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Science / RLaB / rlib / dot.r < prev    next >
Text File  |  1994-04-25  |  425b  |  20 lines
  1. //---------------------------------------------------------------------------
  2. //  dot.r
  3.  
  4. //  Syntax:    dot ( A , B )
  5.  
  6. //  Description:
  7.  
  8. //  Compute the dot product of two vectors, A and B.
  9. //---------------------------------------------------------------------------
  10.  
  11. dot = function ( A , B )
  12. {
  13.   if (min (size (A) != 1) || min (size (B) != 1)) {
  14.     error ("dot: A and B must be vectos");
  15.   }
  16.   return sum (A[:] .* B[:])
  17. };
  18.  
  19.  
  20.